home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_##_(07-1985).d64 / what am i (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  49 lines
  1. 0 REM - 'WHAT AM I' WRITTEN BY ALAN J. WORMSER -- JUNE 25, 1985
  2. 1 REM - ADDR: 1346 CROWN POINT, APT. C, NORMAN, OK 73069
  3. 2 REM - THIS PROGRAM USES THE DYNAMIC KEYBOARD TO ADD DATA STATEMENTS
  4. 3 REM - NQ = # OF QUESTIONS   Q$ = QUESTION   G$ = GUESS   PTR = POINTER
  5. 4 REM - AFTER PLAYING A SESSION WITH THE COMPUTER, SAVE THE NEW VERSION
  6. 5 PRINT"[147]THINK OF AN ANIMAL, THEN ANSWER":PRINT"THE YES/NO QUESTIONS.
  7. 6 [153]"THIS IS A SELF-MODIFYING PROGRAM...
  8. 7 PRINT"THE MORE YOU PLAY, THE MORE IT LEARNS!
  9. 8 [153]"IF YOU MAKE A MISTAKE, HIT THE":[153]"RUN/STOP KEY AND RE-RUN THE PROGRAM.
  10. 9 PRINT"HIT ANY KEY TO GO ON":POKE198,0:WAIT198,1:GETA$
  11. 10 NQ= 0
  12. 12 PTR=0:BEGIN=500
  13. 50 READ Q$,Q,G$,G
  14. 51 PRINT""Q$"? (Y/N)"
  15. 52 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"THEN52
  16. 53 IFA$="Y"THEN56
  17. 54 PRINT"NO":IFQ=0THENG1=G:Q1=NQ-PTR+1:GOTO72
  18. 55 PTR=PTR+Q:FORI=1TOQ:READQ$,Q,G$,G:NEXT:GOTO51
  19. 56 PRINT"YES":PRINT"IS IT A "G$"? (Y/N)"
  20. 57 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"ANDA$<>"N"THEN57
  21. 58 IFA$="Y"THEN62
  22. 59 PRINT"NO":IFG=0THENQ1=Q:G1=NQ-PTR+1:GOTO72
  23. 60 PTR=PTR+G:FORI=1TOG:READQ$,Q,G$,G:NEXT:GOTO51
  24. 62 PRINT"*** HOORAY, I GUESSED IT RIGHT! ***"
  25. 64 PRINT"WANNA TRY ANOTHER ONE? (Y/N)"
  26. 66 POKE198,0:WAIT198,1:GETA$:IFA$="Y"THENRUN
  27. 68 PRINT"[147]SAVE THIS VERSION TO TAPE OR DISK"
  28. 69 PRINT"IF YOU HAVE MADE ANY ADDITIONS TO IT.":END
  29. 70 REM ** ROUTINE TO ADD QUESTIONS AND GUESSES **
  30. 72 PRINT"WOW, I GUESS I DON'T KNOW THAT ONE!
  31. 73 [153]"WHAT IS IT (ONE WORD)?
  32. 74 INPUTG1$
  33. 76 PRINT"NOW TYPE IN A QUESTION TO HELP ME GUESS IT.
  34. 77 [153]"...PLEASE KEEP IT TO UNDER 40 COLUMNS.
  35. 78 INPUTQ1$
  36. 79 PRINT"ANIMAL:":PRINTG1$:PRINT"QUESTION":PRINTQ1$:PRINT"IS THAT CORRECT?  (Y/N)
  37. 80 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177]"Y"[167]73
  38. 81 [153]"ONE MOMENT, WHILE I MEMORIZE THAT
  39. 82 PRINT"HIT ANY KEY TO GO ON":POKE198,0:WAIT198,1:GETA$
  40. 84 PRINT"[147]10 NQ="NQ+1
  41. 90 PRINTBEGIN+PTR"DATA"Q$CHR$(44)Q1CHR$(44)G$CHR$(44)G1
  42. 100 PRINTBEGIN+NQ+1"DATA"Q1$",0,"G1$",0"
  43. 102 PRINT"GOTO110"
  44. 104 POKE198,6:POKE631,19:FORI=632TO636:POKEI,13:NEXT:END
  45. 110 PRINT"[147]I HAVE MODIFIED MY PROGRAM..."
  46. 112 PRINT"YOU MAY SAVE THIS NEW VERSION":PRINT"IN THE NORMAL MANNER."
  47. 114 GOTO64
  48. 500 DATAIS IT A KIND OF MAMMAL, 0 ,DOG, 0
  49.